home *** CD-ROM | disk | FTP | other *** search
- /*
- F1GP-Guide 14/16 Arexx Front End
- ©1996 von Age Ass (Heiko Schröder) - - - - Multiview/Amigaguide Version
- ©1994-1995 Jim Hines All rights Reserved - - - - AmigaGuide Version
- */
-
- NL = '0a'x
-
-
- if ~show('L','rexxsupport.library') then
- call addlib('rexxsupport.library',0,-30)
- if ~show('L','rexxarplib.library') then
- call addlib('rexxarplib.library',0,-30)
- if ~show('L','rexxreqtools.library') then
- call addlib('rexxreqtools.library',0,-30)
-
- if ~exists('fgpguide.prefs') then do
- call Request(100, 100,"fgpguide.prefs DOES NOT EXIST\You MUST create it by using the\TG-Screen program." ,, "Live Long and Prosper",,)
- exit
- end
-
- screenmode = open(sm, 'fgpguide.prefs', 'r')
- smvar = readln(sm)
- close(sm)
- parse var smvar width '|' height
-
-
- call openport(notifyport)
- call openscreen(0, 4, hireslace, 'Formel 1 Grand Prix 1996 v14/16 ©1996 Heiko Schröder', fgpguide,, width, height, 0)
-
- /* WORKBENCH COLORS */
- Screencolor(fgpguide, 0, 8, 8, 7)
- Screencolor(fgpguide, 1, 0, 0, 0)
- Screencolor(fgpguide, 2, 0, 15, 15)
- Screencolor(fgpguide, 3, 14, 14, 3)
- Screencolor(fgpguide, 4, 7, 7, 15)
- Screencolor(fgpguide, 5, 15, 15, 15)
- Screencolor(fgpguide, 6, 11, 10, 9)
- Screencolor(fgpguide, 7, 15, 11, 10)
-
- /* PIC COLORS */
- Screencolor(fgpguide, 8, 0, 0, 0)
- Screencolor(fgpguide, 9, 1, 1, 1)
- Screencolor(fgpguide, 10, 3, 3, 3)
- Screencolor(fgpguide, 11, 5, 5, 5)
- Screencolor(fgpguide, 12, 7, 7, 7)
- Screencolor(fgpguide, 13, 9, 9, 9)
- Screencolor(fgpguide, 14, 10, 10, 10)
- Screencolor(fgpguide, 15, 12, 12, 12)
-
- address ARexx "'call CreateHost(hostport, notifyport, fgpguide)'"
-
- WaitForPort hostport
- WaitForPort hostport
- WaitForPort hostport
-
- /* ========THESE DIRS & FILES PERTAIN TO THE MARK AND VIEW COMMANDS ===
-
- if exists('fgp_1996.Guide') then do
- call PostMsg(0, 0,'Loading previously saved episode list.', fgp_1996.GUIDE)
- end*/
-
- address command 'Multiview fgp_1996.GUIDE pubscreen fgpGUIDE'
-
- fgpexit:
- closescreen(fgpguide)
- address command 'avail flush >nil:' /* flushes the no longer needed libs from memory */
- exit
-